home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ QuickLaunch 1.xpl < prev    next >
Text File  |  2001-12-30  |  4KB  |  94 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Taskbar\"
  5. "NAME"="QuickLaunch Bar Links"
  6. "VERSION"="2.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Create "Show Desktop" link"
  9. "TEXT 2"="Create "View Channels" link"
  10. "TEXT 3"="Create "Windows Explorer" link"
  11. "DESCRIPTION 1"="If you have deleted the "Show Desktop" or the "View Channels" link in your Quick Launch bar, you can use the buttons to create them again."
  12. "DESCRIPTION 2"="You can also add a link to Windows Explorer on your Quick Launch bar by clicking on the third link."
  13. "DESCRIPTION 3"="The Quick Launch bar is installed with the ActiveDesktop feature of Internet Explorer 4.X and above."
  14. "DESCRIPTION 4"="NOTE: You can also use WINDOWS KEY+D as a keyboard shortcut to show the desktop. If this suits you better, you don't need to create the first link."
  15. "AUTHOR"="Xteq Systems (Neil R. Turner and TeX HeX)"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to Umesh Reghuram (umesh@home.com) for the spelling-fix."
  19. "COMMENT 2"="NT: I think it's blatantly obvious which plug-in this is based on... sorry TeXHeX!!!"
  20. "COMMENT 3"="TH: Not a problem with me, I also ripped plug-ins from you :-)"
  21.  
  22.  
  23.  
  24. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\AppData"
  25. sPath1="\Microsoft\Internet Explorer\Quick Launch\Show Desktop.scf"
  26. sPath2="\Microsoft\Internet Explorer\Quick Launch\View Channels.scf"
  27. sPath3="\Microsoft\Internet Explorer\Quick Launch\Windows Explorer.scf"
  28.  
  29. Sub Plugin_Initialize 
  30.  s=RegReadValue(sV1)
  31.  if IsEmpty(s)=false then
  32.     'OK!
  33.  else
  34.     Disable
  35.  end if
  36.  
  37. End Sub
  38.  
  39. Sub Plugin_CheckData(ElementIndex)
  40. End Sub
  41.  
  42. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  Select Case ElementIndex
  44.  Case 1
  45.   s=RegReadValue(sV1)
  46.   if IsEmpty(s)=false then
  47.      s=s & sPath1
  48.  
  49.      'Let's write the file!!!
  50.      Call IniWriteValue(s,"Shell","Command","2")
  51.      Call IniWriteValue(s,"Shell","IconFile","explorer.exe,3")
  52.      Call IniWriteValue(s,"Taskbar","Command","ToggleDesktop")
  53.      'I'm sometimes simply TOOO kidding...
  54.      Call IniWriteValue(s,"Xteq","Comment","This file created with Xteq Systems's X-Setup")
  55.  
  56.   else
  57.      Call MsgError("Unable to read AppData value from registry - maybe ActiveDesktop is not installed")
  58.   end if
  59.  
  60.  Case 2
  61.   s=RegReadValue(sV1)
  62.   if IsEmpty(s)=false then
  63.    s=s & sPath2
  64.    'Let's write the file!!!
  65.    Call IniWriteValue(s,"Shell","Command","3")
  66.    Call IniWriteValue(s,"Shell","IconFile","shdocvw.dll,-118")
  67.    Call IniWriteValue(s,"IE","Command","Channels")
  68.    'And I'm TOOO kidding sometimes too :)
  69.    Call IniWriteValue(s,"Xteq","Comment","This file created with Xteq Systems' X-Setup")
  70.   else
  71.    Call MsgError("X-Setup was unable to find the location if your Application Data folder from the Registry. This may be because you haven't installed the Windows Desktop Update - this is installed if you have Internet Explorer 4.x. Otherwise, you may have a corrupted Windows registry.")
  72.   end if
  73.   
  74.  Case 3
  75.   s=RegReadValue(sV1)
  76.   if IsEmpty(s)=false then
  77.    s=s & sPath3
  78.    'Let's write the file!!!
  79.    Call IniWriteValue(s,"Shell","Command","2")
  80.    Call IniWriteValue(s,"Shell","IconFile","explorer.exe,1")
  81.    Call IniWriteValue(s,"Taskbar","Command","Explorer")
  82.    'And I'm TOOO kidding sometimes too :)
  83.    Call IniWriteValue(s,"Xteq","Comment","This file created with Xteq Systems' X-Setup")
  84.   else
  85.    Call MsgError("X-Setup was unable to find the location if your Application Data folder from the Registry. This may be because you haven't installed the Windows Desktop Update - this is installed if you have Internet Explorer 4.x. Otherwise, you may have a corrupted Windows registry.")
  86.   end if
  87.  
  88.  
  89.  End Select
  90. End Sub
  91.  
  92. Sub Plugin_Terminate 
  93. End Sub
  94.